Const acExportTable = 0

Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase "e:\Scripts\ferreteria.mdb"

objAccess.ExportXML acExportTable,"Productos","e:\scripts\ferret.xml"
objAccess.Quit